unit uFormPedirArchivo;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  ExtCtrls, Buttons, StdCtrls, types;

type

  { TfrPedirNombreArchivo }

  TfrPedirNombreArchivo = class(TForm)
    BtnCancelar: TBitBtn;
    BtnAceptar: TBitBtn;
    chkCompilar: TCheckBox;
    cbProyectos: TComboBox;
    edNombre: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Panel1: TPanel;
    Panel2: TPanel;
    procedure cbProyectosDrawItem(Control: TWinControl; Index: Integer;
      ARect: TRect; State: TOwnerDrawState);
    procedure edNombreChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  frPedirNombreArchivo: TfrPedirNombreArchivo;

implementation

{ TfrPedirNombreArchivo }
uses uSolucion,Ucomun;
procedure TfrPedirNombreArchivo.FormCreate(Sender: TObject);
var
  I: Integer;
begin
  For I := 0 To Solucion.Contar-1 do
  Begin
    cbProyectos.Items.Add(Solucion.Proyectos[i].Nombre);
  end;
  cbProyectos.Text:=ProyectoActual;
  Caption := 'Nuevo Archivo para el proyecto: '+PRoyectoActual
end;

procedure TfrPedirNombreArchivo.edNombreChange(Sender: TObject);
begin
  btnAceptar.Enabled:= edNombre.Text<> '';
end;

procedure TfrPedirNombreArchivo.cbProyectosDrawItem(Control: TWinControl;
  Index: Integer; ARect: TRect; State: TOwnerDrawState);
begin

end;

initialization
  {$I uformpedirarchivo.lrs}

end.

